home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 11,000 to 11,999 / 11000.zip / AOLDLs / WIN Tools & Treiber / SCRIPT.exe / musik.vbs < prev    next >
Text File  |  1998-12-14  |  625b  |  23 lines
  1. Dim myfsObject
  2. Dim myFileList
  3. Dim myFolder
  4. Dim myFile
  5. Dim m3uFile
  6.  
  7. Set WSHShell=WScript.CreateObject("WScript.Shell")
  8. Set Shell=WScript.CreateObject("Shell.Application")
  9.  
  10. On Error Resume Next
  11. Set myfsObject=CreateObject("Scripting.FileSystemObject")
  12. Set myFolder=myfsObject.GetFolder("\\PILSBAR\Musik")
  13. Set myFileList=myFolder.Files
  14.  
  15. Set m3uFile=myfsObject.CreateTextFile("\\PILSBAR\Musik\TEST.m3u", 1)
  16.  
  17. For Each myFile in myFileList
  18.     if (instr(myFile.Name, "Kinks")<>0) AND LCase(right(myFile.Name, 3))="mp3" then 
  19.         m3uFile.WriteLine(myFile.Name)
  20.     end if
  21. Next
  22. m3uFile.Close
  23. WSHShell.popup "Fertig..."